home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 081 / omam_112.arc / WAIT.MAM < prev    next >
Text File  |  1987-11-29  |  2KB  |  118 lines
  1. ; I execute this script after each caller.  It will update the messages
  2. ; waiting lists only once every "how_often" hours ...
  3.  
  4. ; Make How_Often "I" for once per hour, "II" for once per two hours,
  5. ; "III" for once every three hours and so on.  (p.s. If you change
  6. ; "how_often," delete WAIT.DEF or the LOAD will retrieve the old value.)
  7.  
  8. DEFINE how_often III
  9.  
  10. DEFINE last_hour x
  11. DEFINE counter $how_often$
  12.  
  13. IF @EXISTS d:\opus\wait.def THEN
  14.   LOAD DEFINITIONS FROM d:\opus\wait.def
  15. END IF
  16.  
  17. IF $last_hour$ != #hour# THEN
  18.   DEFINE last_hour #hour#
  19.   DEFINE counter $counter$I
  20.   IF $counter$ == $how_often$I THEN
  21.     DEFINE counter I
  22.     DEFINE opus d:\opus
  23.     DEFINE misc $opus$\misc
  24.     FILE USER $opus$\user.bbs
  25.     FILE ECHO e:\opus\nodelist\echo.ctl
  26.     PATH SYSTEM $opus$\
  27.     PATH CUSTOM $opus$\notes\
  28.     FILE HEADER $misc$\opuswait.hdr $misc$\graphics.hdr
  29.     FORMAT C
  30.     LOCK all
  31.     LOCK Ben-z Lawrence
  32.     LOCK James Young
  33.     LOCK Steven Marcussen
  34.     AREA general echo
  35.       WAIT
  36.     END AREA
  37.     AREA jax ECHO
  38.       WAIT
  39.     END AREA
  40.     UNLOCK James Young
  41.     UNLOCK Ben-z Lawrence
  42.     UNLOCK Steven Marcussen
  43.     AREA comment
  44.       WAIT
  45.     END AREA
  46.     AREA private
  47.       WAIT
  48.     END AREA
  49.     Lock Ben-z Lawrence
  50.     AREA bbs ECHO
  51.       WAIT
  52.     END AREA
  53.     AREA sale ECHO
  54.       WAIT
  55.     END AREA
  56.     LOCK James Young
  57.     AREA anon ECHO
  58.       WAIT
  59.     END AREA
  60.     LOCK Steven Marcussen
  61.     LOCK Ben-z Lawrence
  62.     AREA net
  63.       WAIT
  64.     END AREA
  65.     UNLOCK James Young
  66.     UNLOCK Steven Marcussen
  67.     AREA records ECHO
  68.       WAIT
  69.     END AREA
  70.     AREA movies ECHO
  71.       WAIT
  72.     END AREA
  73.     AREA sportnet ECHO
  74.       WAIT
  75.     END AREA
  76.     AREA mod1000 ECHO
  77.       WAIT
  78.     END AREA
  79.     AREA tandy ECHO
  80.       WAIT
  81.     END AREA
  82.     LOCK James Young
  83.     AREA ibm ECHO
  84.       WAIT
  85.     END AREA
  86.     UNLOCK James Young
  87.     AREA amiga ECHO
  88.       WAIT
  89.     END AREA
  90.     AREA os2 ECHO
  91.       WAIT
  92.     END AREA
  93.     LOCK twit
  94.     LOCK disgrace
  95.     LOCK normal
  96.     LOCK James Young
  97.     LOCK Steven Marcussen
  98.     AREA syschat ECHO
  99.       WAIT
  100.     END AREA
  101.     AREA meadow ECHO
  102.       WAIT
  103.     END AREA
  104.     UNLOCK James Young
  105.     UNLOCK Steven Marcussen
  106.     AREA sysop18 ECHO
  107.       WAIT
  108.     END AREA
  109.     LOCK priv
  110.     LOCK extra
  111.     AREA host18 ECHO
  112.       WAIT
  113.     END AREA
  114.     FILE TRAILER $misc$\opuswait.trl
  115.   END IF
  116. END IF
  117. SAVE DEFINITIONS TO d:\opus\wait.def
  118.